home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh45a.d64
/
listing 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
383b
|
9 lines
5 PRINTCHR$(142) :REM GROSSBUCHSTABEN EINSCHALTEN
10 POKE 52,48:POKE 56,48:CLR :REM BASICSPEICHER BEGRENZEN
20 POKE 56334,PEEK(56334) AND 254 :REM UNTERBRECHUNGEN ABSCHALTEN
30 POKE 1,PEEK(1) AND 251 :REM ZEICHENROM EINBLENDEN
40 FOR I=0 TO 511:POKE I+12288,PEEK(I+53248):NEXT
50 POKE 1,PEEK(1) OR 4 :REM EIN-/AUSGABE EINBLENDEN
60 POKE 56334,PEEK(56334) OR 1 :REM UNTERBRECHUNGEN ZULASSEN
70 END